﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TiposFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TiposBE
        Dim tmpTipos As TiposBE = New TiposBE()
        Try
            With tmpTipos
                .ClaFamilia = convertDTFromDb.ConvertString(dr.Item("ClaFamilia"))
                .ClaTipo = convertDTFromDb.ConvertString(dr.Item("ClaTipo"))
                .DesTipo = convertDTFromDb.ConvertString(dr.Item("DesTipo"))
                .IdEmpresa = convertDTFromDb.convertInt32(dr.Item("IdEmpresa"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpTipos
        Catch ex As Exception
            Throw
        Finally
            tmpTipos = Nothing
        End Try
    End Function
End Class
